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DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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INDIRECT FILE MANIPULATION ROUTINES 
; MODIFIED BY: | 


v03-016 HWS0100 Harold Schultz 06-AUG-1984 
Open any new indirect frame with Carriagecontrol 
attributes. 


v03-015 HWS0081 Harold Schultz 15-Jul-1984 | 
When closing the current indirect frame and unstacking | 
the previous frame, set NAM block to not use the RSA and 
ESA fields left by the indirect frame just closed. Using 
these values cause the free dynamic memory list to become 
corrupted. Add support for execute-only command procedures. 


v03-014 HWS0080 Harold Schultz 12-Jul-1984 
When allocating room in symbol table for resultant 
name erring. don’t use constant of 256; use the value 
of NAMSC_MAXRSS+1 rounded up to a bong word boundry 
instead. Remove the ASSUME of NAMSC_MAXRSS. Bypass 
deallocation of unused buffer if none to deallocate. 


V03-013 HYS0066 Harold Schultz 21-May-1984 
Correct the error pendl ing when a SYMOVF error is encountered | 
while setting up the new indirect level. Reenable password 
masking after opening an indirect input file. 


: v03-012 HWS0015 Harold Schultz 21-Feb-1984 
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Check status after SFIND. 
Initialize file senc. size fields in NAM block before reusing. 
pe the SYSSINPUT prior to reopening a file at a prior indirect 


v03-011 PCG0013 Peter George 12-Jan-1984 
Fix broken branch. 
v03-010 PCG0012 Peter Geor 17-Aug-1983 


e 
Correctly clear RMS F SSEARCH context. 
Manage concealed logical name attribute using the new services. 


v03-009 PCG0011 Peter George 27-May-1983 
Fix bug in unstacking when restored command procedure 
is already positioned to EOF. 


v03-009 PCG0011 Peter George 27-May-1983 
Fix bug in file name saving bagte. 
Fix bugs in SYSSOUTPUT processing. 


v03-008 KRM0099 Karl Malik 29-Apr-1983 
Disable password masking for network. 


v03-007 PCG0010 Peter George 10-Apr-1983 
Finish making remote open work. 

V03-006 PCG0009 Peter George 22-Feb-1983 

Add DCLSDEFINE_P1_TO_P8. 

Clear FABSM SQ0 bit. 

Clear FABSV_NAM and FABSW_IFI when performing 

remote reopen. 


v03-005 PCG0008 Peter George 28-Jan-1983 
Remove reference to ONEXIT bit. 
v03-004 PCG0007 Peter George 13-Jan-1983 


Call SYSSOUTPUT routines. 

Save name of command procedure. 

Use saved file name spec to reopen command procedures 
on remote nodes. 


v03-003 PCG0006 Peter George 30-Dec-1982 
Clear PRC_V_ONEXIT when unstacking. 

v03-002 PCG0005 Peter George 28-0c t-1982 
Fix CLRBIT typo. 

v03-001 PCG0004 Peter George 15-Jul-1982 


Allow execute-only command procedures. 


LIBRARY CALLS 


PRCDEF DEFINE PROCESS WORK AREA 
WRKDEF DEFINE COMMAND WORK AREA 
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MAXIMUM NUMBER OF INDIRECT FILE SYMBOLS 


; INPUT FILE DEFAULT NAME STRING 
; REST OF NAME AND THE QUALIFIER 
; LOGICAL NAME FOR SYSS$INPUT 
; PROCESS LOGICAL NAME TABLE 
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ED OR ENT TE IOLA LECT IE AP SR I I SEE aT aE Sere 
vou-000 STACK INDIRECT FILED Oe ee rout es "U=SEE=198C S3:27370 POUL YSRcHthotatersmar:1 = 88" 3, | 
2 147 f .SBTTL STACK INDIRECT FILE | 
, 199 | ; DCLSSTACKIND = STACK INDIRECT FILE 
027 151 THIS ROUTINE IS CALLED TO STACK THE CURRENT INDIRECT FILE LEVEL AND TO PARSE | 
027 13¢ ¢ AND OPEN THE NEXT INDIRECT FILE. 
Br ig | eu 
07 136 IT IS ASSUMED THAT THE INDIRECT FILE PROCESSING FLAG IS SET. 
00¢7 138 ; ourPuTs: 
0027 160 ; THE CURRENT INDIRECT FILE SPECIFICATION IS SAVED ON THE INDIRECT FILE 
0027 161 ; STACK AND THE NEXT INDIRECT FILE IS PROCESSED. 
09 188 RO LOW BIT CLEAR INDICATES INDIRECT FILE PROCESSING FAILURE. 
0097 188 RO = DCLS,ATLAST = INDIRECT FILE SPECIFICATION NOT LAST ITEM ON 
ae nS: SEESEHBNT = MOSEL T PPT EMME Te 5 Paene Tes 
Boe? 190 ; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
33 173 : RO = DCLS_NORMAL = NORMAL COMPLETION. 
0027 17% 
0346 30 0097 176 ne ety SeTIND SST TNDIRECT PROCESSING UP 
Mom GS Ge ik eke cee Fe gr iG a 
roth. EU aoe, BEGL Panagpurrncet IEE Vall ole vaszrim 
53 063 9A 0037 181 MOVZBL #PTR AK PARAMETR,RS SET TOKEN CONTEXT FOR FILESPEC 
FFCS* 30 O03A 188 BSBW  -DCLSPROCF :PROCESS FILE SPECIFICATION 
erty 50 0940 184 BSB DCLSSETCHAR PEEK AT NEXT CHARACTER IN INPUT BUF 
moe 12 0046 186 gueo | bos Nr jae 
FFBS* 30 0048 18 fart ero on Te TERMINATOR AND GET_NEXT TOKEN 
3 19 O04E 1 BL 
"OBA itis, Bl BM i iechaMtas 88h 
AA AF 62 31 29 0055 198 CMPC RI, (R29 ,OUTQUAL :CHECK FOR VALID @ 
85 wed goose 194 POPE RO’ TRESTORE TERMINATION CHARACTER 
ava ny 13 STATUS 1 VQUAL ;SET ILLEGAL QUALIFIER CODE 
oo BUH BE FE Ber Fg NS aaa 
so $A 91 O08 300 CAPR R*A/:/, RO 4a TERMINATOR? 
wieee iH 3 SFatus }vALu SET INVALID VALUE SYNTAX 
007> 31 «007¢ 15$:  BRW 0s : | 
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INDIRECT = INDIRECT FILE MANIPULATI° ROUTINES 15-SEP-1984 23:55:59 VAX/VMS Macro v04-00 Page 
ive STACK INDIRECT FILE eat PRR YIM TST S TE OED e 3) 
oF 
ort : FILE SPECIFICATIONS PARSED = PARSE SYMBOL DEFINITIONS 
O7F : IF THE FILESPEC WAS FOLLOWED BY A SPACE, THAT SPACE MAY HAVE BEEN THROWN 
O7F ; AWAY IF THE FIRST CHARACTER IN P1 MAKES IT INSIGNIFICANT. 
58 04 AE 3 bff 20$: MOVAB 4(SP 7GET ADDRESS OF SYMBOL DESCRIPTOR ST 
FF7A’ 083 BSBW Ber SSE THBLK SIGNORE BLANKS AFTER FILESPEC 
FF77" 30 0086 30$:  BSBW  DCLSMARK [MARK POSITION OF FIRST NON-BLANK 
FF74" 30 0089 40$: BSBW DCLSMOVCHAR :COPY A CHARACTER FROM INPUT BUUFER 
04 £0 BC BBS #WRK_V ;LOOP IF IN A QUOTED STRING 
FB FO AA E WRK_Q_ Ves tRI0) 40$ 
05 13 0091 BEQL 5$” ‘BR IF END OF LINE 
50 20 91 0093 CMPB WA" *,RO 1S THIS A TERMINATOR 
F1 1 009% BNEQ [BR IF NO = KEEP LOOKING FOR TERMINA 
FF65" 3 009 45$ BSBW $DCLSMARKEDTOKEN GET DESCRIPTOR oF PARAMETER 
51 07 0098 DECL = RI [REMOVE COUNT FOR TERMINATOR 
18 13 009D BEQL 60% [IF NULL STRING = NO MORE SYMBOLS 
62 32 91 009F CMPB Os #*A/"'/, (R2) [SYMBOL START WITH A QUOTE 
03 12 OOA2 BNEQ NO = LEAVE THE SYMBOL ALONE 
FF59° 30 OOA4 BSBW DCLSCOMPRESS TELSE REMOVE THE QUOTE PAIRS 
88 51 7D O0A7 50$: mova is ORE SYMBOL DESCRIPTOR 
D8 6E 08 £3 OOAA AOBLEQ ASiNBOLS, (SP), 30$ NY MORE SYMBOL DEFINITIONS ALLOWED 
“<‘so 0A STATUS DEFO 3SET SYMBOL DEF JNITION OVERFLOW 


: RUN DOWN ANY IMAGE CURRENTLY RUNNING 
é0s: PUSHL WRK_L_RSLNXT(R10) 
DCLSRONDOWN 


Bs 

SUBL3 (SP)+,WRK_L et care bbl bd RO 
ADDL —RO, << S MBO ot 5 28>+4+<924>>(SP) 
ADOL RO, <<SYMBOLS*8>+4+<10#4>>(SP) 
ADDL RO, * <<SYMBOL $#8>4+44<11#4>>(SP) 


4 
50 BA AA 8 
; 
5 ADDL RO. <<SYMBOLS*8>+4+<12#4>>(SP) 


STACK COMMAND PROCEDURE 


MOVL <<SYMBOLS *8>44+<924>>(SP) ,- 
WRK_L_RSLNXT(R10) 
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6 
7E D mova 7 
4 D4 CLRL 
fries 0 00 BSBW DCLSGETDVAL 
03 5 9 BLBC ~=«_-«RO,6 
54° COSCO MOVO = R1 RG 
52 BE 7D 65$: mova (SP) +,R2 
1 ps CLRL OR 
0049 9 BSBWY DCLSPUSHPROC 
09 50 € BLBC =—_—«RO, 808 
: CREATE SYMBOLS P1-P8 


: SAVE POINTER Pr. WRK AREA 
RUN DOWN IMAGE AND INDIRECT beyeLs 
: CALCULATE LENGTH OF STACK SHIFT 


: RSLEND 
;RELOCATE SAVED WRK_L_EXPANDPTR 
;RELOCATE SAVED WRK_ “2 ~MARKPTR 


sRETRIEVE ADDRESS OF DESCRIPTORS 
i661 INPUT rie DESCRIPTOR VALUES 
SAVE INPUT 


64 


3 
6 
A 
a: 
c 4 : RESTORE THE STACK AND PREPARE TO EXIT 
68 BOS:  MOVAB <SYMBOLS*8+4>(SP),SP 
PUSHL RO 


F 

SE 944 af 9E F 
8 

0 BRW STKXIT 
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INDIREC' - 1 NDIRECT FILE MANIPULATION ROUTINES 15-SEP-1984 23:55:59 
v04=000 STACK INDIRECT FILE 46-SEP-1984 $3:27:33 
56 0 OOF 61 MOVL (SP),R6 
5804 ar ¥ OOF 6¢ MOVAB 4(SP5,R8 
09 (1 f BSBB © OCLSDEF INE_P1_TO_P8 


<= 


AX/VMS Macro v04-00 Page 6 
DCL.SRCJINDIRECT.MAR;1 (2) 


;GET NUMBER OF SYMBOL DEF INIT yes s 
GET ADDRESS OF VALUE DESCRIPTORS 
:DEFINE P1 THROUGH P 


;DEALLOCATE ps DESCRIPTOR STORAG 
; SAVE FINAL STATUS 


INDIRECT - INDIRECT FILE MANIPULATION routines 15-SEP-1984 33:55:59 AX/VMS Macro V04-00 Page 7 
yO 086 DEFINE SYMBOLS P1-P 4-SEP=1984 23:41:10 (COCL.SRCJINDIRECT.MAR;1 (3) 
! ns ~SBTTL DEFINE SYMBOLS P1-P8 
| oe ; *DCLSDEF INE. P1_TO_P8 = DEFINE SYMBOLS P1-P8 
6 ; THIS ROUTINE IS CALLED TO DEFINE THE LOCAL SYMBOLS P1-P8. 
! re: : INPUTS: 
105 0: RG = NUMBER OF SYMBOLS THAT HAVE ASSIG NED D VALUES 
3 1; = ADDRESS OF LIST OF Pn VALUE DESCRIPTORS 
1 3 gi ; OUTPUTS: 
1 4; 
105 $3 R1-RB TRASHED 
105 i- 
105 «288 
105 289 DCLSDEFINE_P1_TO P8:: 
7E 3050 8F 3¢ 0105 290 mo0zuC B°A/50/ (SP) ;CREATE PROTOTYPE OF GENERATED SYMBO | 
57 08 DO O10A 291 ROVE YMBOLS,R ;SET NUMBER OF SYMBOLS TO GENERATE | 
51 D4 010D 292 108: CURL +e ZASSUME NO MORE SYMBOL S DEF INED | 
36 D7? O10F 9 DECL R6 TARE THERE ANY MORE TO DEFINE 
03 19 0111 94 BLSS 208 :BR IF - DEFINE As NULL STRING 
51 88 7D 0113 295 mova (R8)+,R1 3GET VALUE DESCRIPTO 
01 AE 96 0116 296 20S: INCB—s-1( SP) s INCREMENT SYMBOL 
53 02 00 0119 29 MOVL #2,R3 :SET LENGTH OF SYMBOL NAME 
54 6€ SE O11C 298 MOVAB (SP),R4 ZSET ADDRESS OF SYMBOL NA 
55 38 AB SE O11F 299 MOVAB PRC_G LOCAL(RI1), R5 3GET ADDRESS OF LOCAL SYMBOL TABLE L 
50 00 p ot 3 ©6300 MOVL #SYA_R STRING,RO- :SET SYMBOL TYPE IS STRING 
FED?" 126 01 BSBW DCLSALCOCSYM TALLOCATE AND INSERT SYMBOL TABLE EN 
0A 50 €9 0129 08 BLBC RO. 908 s1F LBC ALLOCATION FAILURE | 
DE 57 FS ~«(O12C) = 30 SOBGTR R7.10$ ANY MORE SYMBOL TO PROCESS? | 
OigF 04 STATUS NORMAL [SET NORMAL COMPLETION STATUS 
8E DS 0136 305 90S: TSTL (SP)+ TREST ORE THE STACK 
05 0138 306 RSB S RETURN 
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RECT STACK trSEpaiobe $8327 540 Lore each taboRe et mors 1 ow 


be -SBTTL PUSH PROCEDURE ONTO INDIRECT STACK 
; DCLSPUSHPROC = PUSH PROCEDURE ONTO INDIRECT STACK 


; THIS ROUTINE IS CALLED TO INITIALIZE A NEW INDIRECT FRAME 
; ON THE INDIRECT PROCEDURE STACK. 


_— 


GOOD 09 C909 NINN NN NN NSN NP AAA AOA MMIII BB BB AIA IAI IA IAAI AIA 
>>> AVIS BOWIMINININMTHI MS PWS OOOO Ow HOM RUS WODODODODODODOOVDODDODODODOOO0O 


IGNALED, ELSE 0 


; OUTPUTS 
RO = STATUS (NOT SIGNALED) 


Bee Oe Oe Oe Oe Oe Oe Oe Oe Be ee Be eee 
@D 
- ern 
~~ 
Dwi 
ale. | 


DCLSPUSHPROC: : 

PUSHR #*M<R1.R2.R3.R4 RS. R6,R7,RB,R9,AP> 
MOVL PRC_L_STACKPT(R11)-R6 :GET CURRENT INDIRECT STACK POINTER 
MOVAB aU DF _R_LENGT Fert ey SEAL CU ULATE NEW INDIRECT STACK POINTER 
CMPL Rg. PRC"L_STACKLM(A11) i IND NDIRECT STACK OVERFLOW? 


I 
we? ee STACK OVERFLOW 


13FE 8F 
A 


S 
oo 
o 
> rm! 
@ 
SS mlkSB 


STKOVF ist, 
13FE 8F 80$: POPR #°M<R1,R2,R3,R4,R5,R6,R7_R 


; ALLOCATE ROOM IN SYMBOL TABLE FOR RESULTANT NAME STRING PRIOR TO CLOSING 
‘ CURRENT INDIRECT FRAME. 


FWA AAAI IA RIIPIPIPIPNININD OO 


At sam ante tana lian Sheena Bint Nagra Pasa cereale ti 
2 
w” 
@ 


MeL te 
; R6 = Pointer to current stack frame 


00000100 BF 00 2s MOVL #<<<NAMSC _MAXRSS+1>47>8°C<7>>,R1 aE ee sie eae 
FE9D' 30 4 BSBW DCLSALLDYNMEM ZALLOCATE ROOM IN THE SYMBOL TABLE 
4 BLBS 0.38 [BR IF NO ALLOCATION ERROR 
4 STATUS SYROVE INDICATE NO MORE ROOM IN SYM TAB 
BRB $ zJUST EXIT 
: 3$ MOVL R2,R9 SAVE ADDRESS OF ALLOCATED BLOCK 
3 : THE NEW INDIRECT Fit —E FRAME IS FORMED ON THE STACK AND LINKED TO ANY 
sf ; PREVIOUS FRAMES. THE STACK OVERFLOW CHECK HAS BEENY PERFORMED AT THIS POINT 
3¢ AB 6 5 INCL PRC_L_INDEPTH(R11) ; SET NEW INSTACK STACK DEPTH 
C 48 Dd INCL PRC“L~ INDCLOCK(R11) > INCREMENT TOTAL STACKS OR UNSTACKS 
AO 5 D MOVL RB PRE L_STACKPT(R11)  ; ALLOCATE NEW STACK FRAME 
6 C 8 D MOVL PRE_L_TOFLNK(R11) ,R6 3 GET ADDRESS OF CURRENT INDIRECT FRAME 
D 6 MOVL 6 TOF. Le WK (RB) : LINK NEW FRAME INTO TOP OF 
cB DE 6 MOVAL ip t ; INDIRECT FILE FRAME LIST 
6 
6 
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H PROCEDURE ONTO INDIRECT STACK 46-SEP-1984 23:41:10 (CDCL.SRCJINDI DIRECT MAR: 1 (4) 
} : § : R8 = Pointer to new stack frame 
5¢ AB 0 018A 6 MOVL PRC_L_INDFAB(R11),AP :GET ADDRESS OF INDIRECT FAB 
19 A6 AB D O01 6 mova PRE“OnLOCA AL(R11),{DF_Q_LOCAL(R6) ;SAVE LOCAL SYMBOL TABLE LISTHEAD 
18 A6 ABO? 1 MOVa PRC_Q-LABEL(R11),IDF-Q-LABEL(R6) ;SAVE LABEL SYMBOL TABLE LISTHEAD 
06 A6 6A AB 8B 19 0 MOVW PRC W_ONLEVEL (R11) IDF “W_ONLEVEL (RO) SAVE ON ERROR LEVEL NUMBER 
a8 ef AB p 19 71 MOVL PRC_L_ONERROR(R11), IDF_L-ONERROR(R6) ;SAVE ON ERROR COMMAND TEXT 
5 1A te MOVAB PRC“Q~LOCAL(R11),RO TGET ADDRESS OF LOCAL TABLE LISTHEAD 
0 Z D 1A 7 MOVL RO, TRO) SET ADDRESS OF LISTHEAD AS FORWARD LINK 
0 1A 74 MOVL (RO) +, (RO)+ SET ADDRESS OF LISTHEAD AS BACKWARD LINK 
50 30 1A 75 MOVAB PRC_Q’LABEL(R11),RO GET ADDRESS OF LABEL TABLE LISTHEAD 
68 D 18 4 MOVL 0 ro SET ADDRESS OF LISTHEAD AS FORWARD LINK 
0 D 18 7 MOVL (R6)+, SET ADDRESS OF LISTHEAD AS BACKWARD LINK 
6 AB D4 0186 78 CLRL PRC L “GRE RROR( (R11) *CLEAR ADDRESS OF ON ERROR COMMAND TEXT 
6A AB 920 8F B60 0189 79 MOVW 2a8!2,PRC_W ONLEVEL (R115 sRESET ON ERROR LEVEL TO ERROR 
60 A6 cB D 1BF 80 MOVL eee _L_ONCTCYTR11), IDF_L_ONCTLY(R6) ;SAVE ON CONTROL Y COMMAND 
07 («1 1¢5 81 BEQ Sis “BR IF THERE WAS NONE 
0088 CB O000'CF 9 1¢ 8 MOVAB W*DCLST_DEFONTXT,PRC_L_ONCTLY(R11) ;SET DEFUALT FOR WEXT LEVEL 
SE AB O01 8B 1C 83 5$: MOVW #1alDF_V_INPOPN, IDF -@_PLAG(R8) ;SET INPUT FILE OPEN 
1D 84 sASSUME FILE IS OPENED COAL 
AB D4 910 se CLRL IDF _L_SEARCHCTX(R8) INITIALIZE FSSEARCH CONTEXT” List 
01D 87 ; 
B1b8 88 ; CLOSE INPUT FILE FROM PREVIOUS INDIRECT LEVEL AND REMEMBER THE CURRENT 
3102 34 ; POSITION IN THE FILE, SO THAT ON RETURN, WE CAN RESET THE POSITION. 
52 14 AB 00 0105 91 ° MOVL PRC_L_INDINPRAB(R11) ,R2 SET. CURRENT INDIRECT RAB POINTER 
08 AB «52 = =«2«#D1 C0109 3 CMPL RD PRC. L_INPRAB(R11) t1S THIS THE PRIMARY INPUT STREAM? 
31 13 O1DD 9 BEQL * 3BR IF YES-THAT NEVER GETS CLOSED 
16 18 A2 1C €1 ODF 94 BBC #DEVSV_ RND . RABSL_CTX(R2).6$ :SKIP IF NOT A DISK FILE 
58 AG) «001s AECs«#OQ‘ SG 95 MNEGW #1, IDF “W_INPRFA(R6) : ASSUME END OF FILE 
168 9 SFIND RAB=(R2)~ GET THE CURRENT RECORD POSITION (IT 
0000°8F 50 61 O1F1 9 CMPW RO, #RMSS_EOFS*XFFFF :mAY HAVE BEEN ADVANCED BY AN INDIRECT 
OA 13 FG 98 BEQL 6$ CESS R SINCE OUR LAST ). 
58 A610 Ag DO O1F 99 MOVL RABSW_RFA(R2) , IDF u.ANPRE ACRE) AVE RECORD BOSITION IN FILE 
5C a6) «O14 A2) «BO SCOTFD = 400 MOVW  RABSWIRFA+4(RO) DFW INPRFA+4( 3) 
02 AC 04 A6 BO 06 491 6$: MOVW IDF_W7INPIFI(R6S, FABSO. TFTA?) 3SET INTERNAL FILE IDENTIFICATION 
4 g SCLOSE FAB=(AP) 
3 ih 
605 : OPEN INPUT PROCEDURE FILE 
04 AB = B4 1 £09 7S: CLRW IDF_W_INPIFI(R8) CLEAR INPUT FILE INTERNAL INDEX 
02 aC B4 3 $8 CLRW FABSW_IF ICAP) CLEAR INTERNAL FILE INDEX 
1 O4A 7D 16 410 mova 4(SP),R1 GET INPUT FILESPEC (R2/R3 ON ENTRY) 
AC 3 90 O21A 411 MOVB RI » FABSB_FNS (AP) [SET SIZE OF FILE NAME STRING 
¢ AC 2 8 1 8 MOVL -EABSL PRACAP) SET ADDRESS OF FILE NAME STRING 
AC 04 41 MOVB *FABSE :SET SIZE OF DEFAULT NAME STRING 
30 AC FOD6 CF 9€ ¢ ret MOVAB mi Abbe FADS ADNACAP) SET ADDRESS OF DEFAULT NAME STRING 
57 28 ac 00 $16 MOVL FABSL_NAM(AP) ,R7 GET ADDRESS OF INDIRECT NAME BLOCK 
9 FF BF 41 # STORE LENGTH OF BUFFER (IN SYM TAB) 
$3 As 34 30 4 ‘is ROVE e577 or ‘ L FILENAME (RE) TSTORE ADDRESS OF BUFFER (IN SYM TAB) 
FF BF 988 ; 34 nOv7Bu Manse RSC -MAXRSS,- =~ :SAVE THE SIZE OF THE BUFFER 
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ONTO INDIRECT STACK 4-SEP-1984 23:41:10 CDCL.SRCJINDIRECT.MAR;1 (4 
NAMSB_RSS(R7) : (NOTE, NOT THE ALLOCATED SIZE) 
AB - 1(R9) SNAMSL_RSA(R7) SSAVE THE ADDRESS OF THE BUFFER 

ASSUME NASB RSL EQ NAMSB_RSS*+ 

MOVZBW #NAMSC MAXRSS ,~ :SET UP EXPANDED STRING TOO 
NAM$B_ESS(R7) : 

MOVL NAMSL“RSA(R7),- : 
NAMSL“ESA(R7) : 

MOVB § #NAMSM_PWD,NAMSB_NOP(R7);DISABLE PASSWORD MASKING 

MOVE § #FABSA_EXE ‘FABSB_FAC(AP):SET FILE ACCESS TYPE 

MOVL arn SHE INPIEABSH_PPF ,~ [SET FILE OPEN OPTIONS 

MOVB #FABSA_PRN,FABSB_RAT(AP):SET CARRIAGE C ROL 

MOVB #FABSC-VFC,FABSB_RFM(AP);SET VERT. FORMS 

CLRB = FABS$B_SHR(AP) [CLEAR FILE CHARING. OPTIONS 

MOVL AP,R SADDRESS OF FAB 

MOVL  #4,R1 ASSUME OPEN WITH ERROR REPORTING 

BLBC 3—._s« (SP) , 8$ [IF ERROR REPORTING DIS 

BISL :D0 OPEN WITHOUT ERROR EPORT ING 

8$: BSBW DCLSOPEN CREATE [OPEN INDIRECT 


INPUT FILE 
CLRBIT NAMSV_PWD,NAMSB_NOP(R7) ; UNCOND ITIONALLY REENABLE PASSWORD MASKINNG | 
BLBC RO, 3s” cIF LBC OPEN FAILURE 


MOV W_INPIFI(R8) ;SAVE INPUT FILE INTERNAL INDEX 
MOVAB PRD_G_ALTINPRAB(AP)(R6 ;GET ALTERNATE I 

MOVL FABSL_DEV(AP) ,RABSL_CTX xche) gsANe DEVICE eg ES 

MOVL RABS a eaanee IDF LL ~{NPRABCTS (R8) ;AND A COPY IN THE STACK FRAME 
BBC #NAMST_N BRANCH IF'NOT A REMOTE OPEN 


NAMSL “FNBCRD) 10$ 
SETBIT IDF_V7REMOTE iSET REMOTE OPEN FLAG 


IDF - “W “FLAG (RE) : 


> GET THE DEVICE NAME. PROPAGATE CONCEALED ATTRIBUTES. 


10s: al IDF _V ithe ie B_OUTFLAGS(R8) ;CLEAR CONCEALED BIT IN IDF 


PNARSO EV,= :1S DEVICE CONCEALED? 
NAMS CPB CR?) 1{s 
SETBIT IDF V"INPCCL. IDF B_OUTFLAGS(R8) ‘SET CONCEALED BIT IN IDF 
ASSUME IDF"WTINPFID EQ TDF_T_INPDVI+16 
ASSUME IDF"W-INPDID EQ_IDF—W-INPFID+6 
11$ v #28°5NAMST DVI(R7),- :COPY FILE INFORMATION 
10F al He HHS sINTO INDIRECT STACK FRAME 
BSL FAB (R6) [LINK FAB TO RAB 
SCONNECT ae acR J [CONNECT TO NEW INPUT 
9$: BLBC [IF LBC CONNECT FAILURE 
CLRBIT RABSV PPF_IND,RABSW WalS1(R6) ZMAKE SURE INDIRECT FLAG IS CLEAR 
MOVL 6,PRC_L_INDINPRAB(R11) ET INDIRECT INPUT RAB 
Bsou ste ENE “ONLY SAVE VER. FLAGS IF EXE-ONLY PROCEDURE. 


; CREATE OUTPUT FILE, IF SPECIFIED 


MOVa =: 12 SP), R1 36 
MOVZBL ine ASL CR 7),-(SP) 3S 
MOVL  IDF_L“LNK(R8).R6 3S 


ENGTH 


ort Opyesegc (ales ON ENTRY) 
ADDRESS OF DEFAULT SYSSOUTPUT INFO 


ET 
AVE 
ET 
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v04- SH PROCEDURE ONTO INDIRECT STACK 4-SEP=1984 23:41:10 (COCL.SRCJINDIRECT.MAR;1 (4) 
FD28" 3 D5 479 BSBW DCLSOPEN_OUTPUT ZCONDITIONALLY OPEN SYS$OUTPUT 
1 BED DB CG 0 POPL SRESTORE LENGTH OF INPUT FILE NAME 
2a50=C*é DB 4 BLBC ~=—_—«R OO, S08 TRETURN ANY ERRORS 
BE GBS 
bE 4 4 : DEALLOCATE UNUSED BUFFER. 
50 68 AB po DE 4 : MOVL  IDF_L_FILENAME(R8),RO  ;GET ADDRESS OF BUFFER 
0 51 9 Eo & MOVE R1, TRO) [SAVE FILE NAME LENGTH IN FIRST BYTE OF BUFF 
1 : C £5 488 ADDL #8.R1 SROUND UP SIZE TO QUADWORD BOUNDARY (INCLUDE 
1 CA O2EB 489 BICL #7.R1 [TRUNCATE DOWN SIZE TO QUADWORD BOUNDARY 
30 -¢ fB 4 : ADDL. R1.RO iCALC LATE ADDRESS OF UNUSED BUFFER 
51 00000100 8 51 ¢ fe 49 SUBL3 1. #<<<NAMSC_MAXRSS#1>#756°C<7>>,R1 ;CALCULATE SIZE OF UNUSED BUFTER 
03 Fé 49¢ BEQL :DON'T DEALLOCATE IF NO UNUSED BUFFER 
FD05" 30 Fé 493 BSBW DCLSDEADYNMEM SDEALLOCATE UNUSED BUFFER 
FB O449S 
FB 496 > CREATE LOGICAL NAMES FOR ‘INPUT’ AND ‘OUTPUT’ AND EXIT WITH SUCCESS. 
FD02" 30 O2FB 498 40$:  BSBW DCLSCREATE_IO SCREATE LOGICAL NAMES FOR ‘INPUT’ AND ‘OUTPU 
0 FE 499 STATUS NORMAL : 
FEGC 31 0305 500 BRW 80$ TEXIT WITH SUCCESS 
0308 501 
0308 20¢ ; 
0308 208 : OPEN, CONNECT, OR SYMBOL ALLOCATION FAILURE 
02 a? ~B4 0308 505 50s CLRW = NAMSB_RSS(R7) sINVALIDATE RESULTANT STRINGS 
OA A? «BS «O030B «S506 CLRW = NAMSB~ESS(R7) SINVALIDATE EXPANDED STRINGS 
50 bp O30E 507 PUSHL RO SSAVE ERROR/STATUS VALUE 
080 30 031 508 BSBW  -UNSTACK SUNSTACK PREVIOUS INDIRECT FILE 
0 8ED0 0313 509 POPL RO TRETRIEVE ERROR/STATUS VALUE 
FE 31 0316 510 BRW 80$ SEXIT WITH STATUS 
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vO0-000 UNSTACK INDIRECT FILE SPECIFICATION 07865-1984 5 241:10 EOCLYSRCTINDIRECT MAR; 1 “ (3) 


s ~SBTTL UNSTACK INDIRECT FILE SPECIFICATION 
; DCLSUNSTACK = UNSTACK INDIRECT FILE SPECIFICATION 


; THIS ROUTINE IS CALLED TO CLOSE THE CURRENT INDIRECT FILE AND TO UNSTACK THE 
¢ PREVIOUS SPECIFICATION. 


INPUTS: 
NONE or 
OUTPUTS: 


THE CURRENT INDIRECT FILE IS CLOSED AND ALL LOCAL SYMBOLS FOR THE LEVEL 
ARE DEALLOCATED. THE PREVIOUS INDIRECT FILE IS THEN UNSTACKED AND REOPENED. 


RO LOW BIT CLEAR INDICATES UNSUCCESSFUL COMPLETION. 


SOOCCCOCOOOOOOOCOOOCOoO 
NAAN NANI ANINIAI AANA AAAI AINA 


NWO NWIWM WD OL MO OM "SOA OOODODOODOOWODOOODOOOOOWOOOOOOOOND —<- 


IL 
RE 
1 1 
19 818 
1 14 
19 848 
3 3 
1 i§ 
1 0 
1 
19 858 
1 r 
5 
3 8 
19 359 
0 530 RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
031 $3 ALL ERRORS ARE SIGNALED BEFORE RETURNING TO CALLER. 
0319 534 
0319 535 DCLSUNSTACK:: sUNSTACK INDIRECT FILE SPECIFICATION 
0319 536 $DELLOG_S TBLFLG=#LOGSC_PROCESS,- ;DELETE ANY USER DEFINED 
031 537 ACMODE=#PSLS$C~USER ‘LOGICAL NAMES. 
10 0326 538 BSBB = SETIND ; INDIRECT PROCESSING 
00" DD O32 539 PUSHL  $“#SS$_NORMAL ASSUME NORMAL COMPLETION 
13 68 AB 04 E3 03 540 BBCC #PRC_V~GOTO,PRC_W_FLAGS(R11),10$ ;IF CLR, NO GOTO IN PROGRESS 
FCCE' 30 03 541 BSBW DCLSDEALGOTO ;DEALLOCATE GOTO SYMBOL 
3 243 STATUS USGOTO [SET UNSATISFIED GOTO STATUS 
6 50 dO 0 54 MOVL  _—RO, (SP) [SET COMPLETION STATUS 
033 544 ERRMSG SOUTPUT ERROR MESSAGE 
FCBE' 30 03 545 BSBW © DCLS$SET_STATUS 'GIVE ERROR HANDLER'S A CHANCE 
4F 10 0342 546 10$:  ®8SBB  UNSTACK SUNSTACK TO PREVIOUS LEVEL 
F895 CA 9E 0344 547 MOVAB WRK_G_INPBUF-1(R10),- :SET STARTING ADDRESS OF INPUT 
F4BE CA 0348 548 RK~L~CHARPTR(R10) [BUFFER AS LAST BYTE FETCHED 
F896 CA 94 0348 549 CLRB = WRK~G~ INPBUF (R10) iSET : L AS NEXT BYTE TO FETCH 
11FF BF BA O34F 550 STKXIT: POPR #*MZRO,R1,R2,R3.R4,R5,R6,R7,R8,AP> RESTORE REGISTERS 
0 53. 551 : RO=STATUS, RI=ORIGINAL FLAG 
BA AA BEDO 035 338 POPL WRK_L_RSLNXT(R10) TRESTORE TOKEN DESCRIPTORS BACK TO 
B6 AA 8EDO 0 5 33 POPL § WRK"L-RSLEND(R10) TWHERE THEY WERE WHEN WE STARTED 
F486 CA BEDO 035 54 POPL § WRK"L-EXPANDPTR(R10) = RESTORE EXPANSION BUFFER POINTER 
F4BA CA BEDO 036 235 POPL _—- WRKL“MARKPTR(R10) TRESTORE MARKER POINTER 
6 56 ENABLE TENABLE CONTROL Y/C AST'S 
0451 01 €0 0367 557 BBS #WRK_V_COMMAND,R1,10$ :BR IF COMMAND WAS SET 
FO AA 02 AA 9 68 228 BICW = #WRK-M-COMMAND,WRK_W_FLAGS(R10) ;CLEAR COMMAND IN PROGRESS 
0S O36F 559108: RSB ; 
Rie 
, 6¢ : SETIND - SETUP INDIRECT 
u 64 t SAVE THE NON-VOLATILE REGISTERS AND THE COMMAND WORK FLAGS, THEN SET COMMAND 
7 66 * 
01 BA 7 86 SETIND: POPR #*M<RO> 3GET RETURN PC 
7 rs.) DISABLE ‘DISABLE CONTROL Y/C AST’S 


kK 15 | 
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UNSTACK INDIRECT FILE SPECIFICATION 4=SEP-1984 23:41:10 CDCL.SRCJINDIRECT-MAR;1 (5) 

$9 PUSHL WRK_L_MARKPTR(R10) SAVE CURRENT peor Ae ti 

0 PUSHL WRK-L"EXPANDPTR(R10) ZSAVE CURRENT EXPANSION BUFFER POINTER 

71 PUSHL WRK-L-RSLEND(R10) ;SAVE CURRENT NDING TOKEN. ADDRESS 

fe PUSHL WRK-L-RSLNXT(RI 7SAVE CURRENT POSITION IN TOKEN ARRAY 

7 PUSHR #*M2RZ R4,R5 ROR? RB, AP> ;SAVE REGISTERS 

74 PUSHL WRK_W_FLAGS(A1 Ave PREVIOUS COMMAND FLAGS 

75 SETBIT WRK-V~COMMAND ,WRK_W AFLAGE RI SET COMMAND IN PROGRESS 

76 JMP ") ie ;RETURN [0 CALLER 
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Mayet UNSTACK NEXT INDIRECT FILE 4-SEP=1984 i § :41:10 CDCL.SRCJINDIRECT «MAR; 1 wm i 
3 2 ~SBTTL UNSTACK NEXT INDIRECT FILE 
9 0: 
: 1 j UNSTACK = UNSTACK NEXT INDIRECT FILE 
9 : 3 THIS ROUTINE IS CALLED TO CLOSE THE CURRENT INDIRECT FILE AND UNSTACK THE 
2 23 3; CONTEXT INFORMATION FOR THE PREVIOUS LEVEL INDIRECT FILE. 
? i : INPUTS: 
§ 3 8 : R11 = ADDRESS OF PROCESS WORK AREA 
0 9 $50 : OUTPUTS: 
9 91; 
039 29¢ ; NONE 
0393 593: 
0393 594: RO-RB,AP ARE DESTROYED. 
039 595 ;--- 
0393 596 
0393 597 UNSTACK: i UNSTACK INDIRECT FILE 
5¢ 1C AB dO 0393 598 MOVL PRC_L ~INDFAB(RI1) .AP [GET ADDRESS OF SCRATCH FAB 
58 O00BC CB DO 0397 599 MOVL § PRC“L-IDFLNK(R11).R8 | :GET ADDRESS OF CURRENT INDIRECT FRAME 
38 DD 039¢ 600 PUSHL RB~ ‘SAVE THAT ADDRESS 
039E 601 
O39E 602; 
039 603 ; CLOSE CURRENT INPUT PROCEDURE FILE 
02 AC 04 a8 B80 0396 605 * IDF_W_INPIFI(R8) ,FABSW_ IFLCAP) RESTORE INTERNAL FILE INDEX 
O3A3 606 SCLOSE FAB=(AP) :CLOSE INDIRECT INPUT FILE 
O3AC 607 
O3AC 608 : 
O5AC 609 : + DEALLOCATE LOCAL SYMBOLS AND LABELS FOR CURRENT LEVEL 
53 388B OF O3AC 611 108: — REMQUE @PRC_Q_LOCAL(R11).R3 REMOVE NEXT ENTRY FROM LOCAL SYMBOL TABLE 
06 1C 0380 61g SIF VC ENTRY REMOV 
53 3088 OF O3B2 61 REMQUE @PRC_Q_LABEL(R11),R3 ;REMOVE NEXT ENTRY FROM LOCAL LABEL TABLE 
05 1D 0386 614 8 0 VS TABLE EMPT 
FC45*" 30 0388 615 20$:  #BSBW  DCLSDEALLOCSYM :DEALLOCATE SYMBOL ENTRY 
.. if 0388 616 BRB 10$ : 
038 618 : ; DEALLOCATE FSSEARCH CONTEXT BLOCKS FOR CURRENT LEVEL 
53 64 AB 09 3Bp 620 $0$: MOVE {pF L_SEARCHCTX(R8) ,R3, :GET FIRST ENTRY OFF FSSEARCH LIST 
26 1 3C] 621 BEQL ANCH IF NONE L 
64 AB 6 C3 é ; (R3),1DF_L SEARCHCTX(RB) REMOVE FROM LINKED LIST 
3c AS) OC FCSS CFOQ C? 6 MOVE NLAO, FABSBTF 8(R3) :SeT T NULL DEVICE NAME 
34 a3 «= FCSO CF OSE cD 624 MOVAB NLAOS1 PABSL PNASECR3) 
D3 625 SPARSE FAB=8(R3) ZT TERMINATE SEARCH SEQUENCE 
50 53 DO O3DD 6 : MOVL [SET ADDRESS OF BLOCK TO DEALLOCATE 
51 04 AO B60 360 6 MOVL RS a :GET SIZE OF ENTRY IN BYTES 
FC19" 30 O364 6 8 BSBW Oct SDE ADYNMEM SDEALLOCATE CONTEXT BLOCK 
YS | 367 5 BRB o$ [LOOP UNTIL LIST CLEANED OUT 
ae 
6 gi : DEALLOCATE FILE NAME STRING 
50 68 A8 D0 O3E9 634 $2$: MOVE IDF_L_FILENAME(R8),RO  ;GET ADDRESS OF ASCIC FILENAME 
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v04= UNSTACK NEXT INDIRECT FILE 273e = 138 g 23:70 EDCL SRCIINDIRECT, MAR; 1 ef | 
51 9A O3ED 635 MOVZBL (RO),R1 :GET SIZE OF FILENAME | 
1 CO FQ 636 ADDL #8, RI SROUND UP SIZE TO QUAD BOUNDARY | 
51 cA i. BICL #7.R1 S TRUNCATE SIZE TO QUAD BOUNDARY | 
FCO7" 30 Fg ; 8 BSBW DCL SDEADYNMEM :DEALLOCATE BUFFER | 
F9 640; 
r9 641 : RESET ON CONDITIONS BACK TO DEFAULTS 
FCO4" 30 F9 og , BSBW DCLSONRESET ;RESET ON ERROR PARAMETERS 
FCOI' 30 0 FC 44 BSBW  DCLSONCTLYRST [AND THE ON CONTROL Y HANDLER | 
0 FE 646 : CHECK IF THE FRAME JUST CLOSED WAS THE FIRST EXE-ONLY FRAME ENCOUNTERED. 
O5tE 647 : IF SO, RESTORE VERIFICATION STATE FROM SAVED FLAGS. | 
0178 30 Ose 649 : BSBW -RES_EXE_ONLY :CHECK EXE-ONLY PARAMETERS. 
0203 631 : POINT BACK TO THE PREVIOUS INDIRECT FRAME | 
Py 
00BC CB 68) b409 re NOVL IDF L _LNK(RB), = ; UNLINK FRAME FROM INDIRECT LIST 
0407 654 C77 ~IDFLNK (RI) ; AND RESET FR INTER 
OOAO CB. 74 AB) OSE «(0407—s«655 MovAB 1D “KTLENGTH(R8) : REMOVE CURRENT INDIRECT FRAME FROM | 
0400 656 PRC“L“STACKPT (R11) | > STACK AND RESET STACK POINTER 
SC AB D7 0400 «657 DECL PREWL~INDEPTH(RI1) : SET NEW INDIRECT STACK DEPTH 
7C AB D6 04610 «658 INCL PRCTLTINDCLOCK (R11) : COUNT TOTAL STACKS OR UNSTACKS 
58 O00BC CB. DO 0415 659 MOVL §PRCTLTIDFLNK(R11),R8  : POINT TO PREVIOUS INDIRECT FRAME 
0418 661; 
0418 662 : RESTORE THE SAVED CONTEXT FROM THE PREVIOUS INDIRECT FRAME | 
38 AB «10 AB «7D «(0618 «664 MOVQ —«IDF_Q_LOCAL(R&) ,PRC -A.LOCAL(RI1) RESTORE LOCAL SYMBOL, TABLE LISTHEA | 
30 AB O18 AB) =«=7D «(0410 ~=—(665 MOVQ § IDFQ7LABEL(RS) .PRC~Q7LABEL(R11) :RESTORE LOCAL LABEL TABLE LISTHEAD 
6A AB «06 AB) BO (0422 «666 MOVW 1DF -W~ONLEVEL (RB) . PRC“W W_ONLEVEL(R11) :RESTORE ON ERROR 
6C AB 08 AB DO 0427 66 MOVL § IDFTLTONERROR(R8) -PRCWL “ONERROR( R11) TRESTORE ADDRESS OF COMMAND TEX 
00B8 CB 60 AB 00 x8 668 MOVL  IDFTLTONCTLY(R8) ,PRC ‘rt ONCTLY(R11) ;AND THE ON CONTROL T HANDLER 
0432 670; 
0432 671 : RE-OPEN THE INPUT PROCEDURE FILE ASSOCIATED WITH THE PREVIOUS | 
0432 672 ; INDIRECT FRAME. | 
FFFF 8F 58 AB B1 0432 674° CMPW JDE_W_INPRFACRE) .#*XFFFF: 1S TH THE INPUT FILE ALREADY AT EOF? 
03 12 0438 675 BNEQ 5$ :NO THE | 
OOEKA 31 043A 676 BRW 50$ THEN DO NOT REOPEN 
08 AB DO 043D 677 35$: = MOVL PRC_t_INPRAB(RI1) ,- ASSUME RETURNING TO LEVEL ZERO AND= | 
14 AB 4b 678 PRC“L~INDINPRAB(R41) i) st PUT AS INDIRECT INPUT ALSO 
03 SE AB 00 £0 442 67 BBS HIDE DL INPOPNST IDF _W ~FLAGERS) 318 E IF NOT GOING TO LEVEL O | 
008A 31 0447 se BRW P cbine. 15 LEVEL 0 
02 pd O44A 682 3518: PUSHL FPSLEC SUPER sPUSH ACCESS MODE | 
7E FBBB CF 9E 044C 6 MOVAB S_1NPUT -NAME+1,-(SP) BUILD LOGICAL NAME DESCRIPTOR | 
7E BBS CF 9A 0451 684 MOVZBL Sye-t AME ,- (SP 
7E FBBB CF 9E 0456 685 MOVAB ONASPROCES Set <(SP) {BUILD TABLE NAME DESCRIPTOR 
7E BB cr 9A 0458 6 6 MOVZBL LNMEPROCESS, -(sP) 
51 SE 00 0460 6 MOVL SAVE ADDR. OF DESCRIPTORS | 
46 6 8 SDELLNM_ SG vance ARNANE (RID. - DELETE SYSSINPUT | 
465 690 KCMODE=16CR1 | 
SE 14 CO (0 691 ADDL #4*5,SP SCLEAN STACK | 
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Mayet UNSTACK NEXT INDIRECT FILE rato 4 33:27:23 DCL.SRCJINDIRECT.MAR;1 ae 
425 692 | 
«, Ogr4 gC 9 475 69 MOVAB PRD_G_ALTINPRAB(AP) Ré 3GET THE ALTERNATE INPUT 
ac a DO 047A 69% OVL R6,PRO_L INDINPRAB RI ) 3SET THAT IS INDIRECT INPUT RAB 
DO O47E 695 OVL IDF _L_INPRABCTX(R8),- RESTORE STACKED DEVICE CHARACTERISTICS 
481 66 RABSL-CTX(R6) [VALUE FROM STACK FRAME 
57 8 Ae DO 04 3 69 MOVL = FABSL“NAM(AP) ,R7 ADDRESS OF NAME BLOCK 
4 698 ASSUME IDF_W-INPFID €Q IDF_T_INPDVI+16 
487 $99 ASSUME IDF-W-INPDID EQ IDF-W7INPFID+6 
3C AB 1C)— 2B «(0487 = 700 MOVC =: #28 IBF _T INPDVI(R8Y,= ;COPY PREVIOUS INPUT DEVICE,FILE AND= 
14 A? 0488 701 NAMST_DUITR7) “DIRECTORY ID'S INTO NAME BLOCK 
48D 10¢ ASSUME NAMSB-DEV EQ NAMS$B_NODE+/ 
0480 £0 ASSUME NAMSB-DIR EQ NAMSB~DEV+1 
48D 704 ASSUME NAMSB-NAME EQ NAMSB_DIR+1 
048D 705 ASSUME NAMSB"TYPE EQ NAMSB-NAME+1 
048D 706 ASSUME NAMSB-VER =TYPE+1 
38 A? D4 0480 707 NAMS$B_NODE (R7) sINIT. FILE SPEC. SIZE FIELDS BEFORE | 
490 708 SREUSING NAM BLOCK. 
3C A? BG 0490 £09 CLRW = NAM$B_TYPE(R7) : 
0493 9711 ASSUME NAMSB_RSL EQ NAMSB_RSS+1 
493 rie ASSUME NAMSB~ ESL EQ NAMSB_ESS+1 
02 A? B4 0493 «71 CLRW == NAMSB"RSS(R 3) 7SET RESULT RESULTANT AND EXPANDED 
OA A? B4 0496 714 CLRW NAMSB~ESS(R7) ZSTRING SIZES TO NULL SO THAT THE 
0499 213 [RSA AND ESA WON'T BE USED. 
16 AC 82 8F 90 0499 717 MOVB #FABSM -EXE!FABSM_GET (F ABSB_FAC(AP) ;SET FILE ACCESS TYPE 
010C0000 8F DO 049E 718 MOVL ABSM-INP!FABSM-PPF!FABSM"NAM,- ;SET FILE OPEN OPTIONS | 
04 AC 0444 719 FABSL_FOP(AP) 
34 AC 94 04A6 720 CLRB = FABSB FNS (AP) sREMOVE RESIDUAL FILE NAME SIZE 
17 AC 94 O4A9 = 721 CLRB  =—s FABSBSHR(AP) SCLEAR FILE SHARING OPTIONS 
02 AC B4 O04AC 13¢ CLRW FABSWTIFI(AP) SCLEAR INPUT IFI | 
01 €1 O4AF 72 BBC #IDF_9 REMOTE - ;SKIP IF NOT REMOTE ACCESS 
11 SE A8 0481 724 IDF _Q_FLAG(RS) ,36$ 
0484 725 CLRBIT FABSV"NAM, FABSL FOP CAP) :CLEAR OPEN BY NAM BLOCK FLAG 
50 AB DO 0489 726 MOVL IDF_LFILENAME (R8) GET ADDRESS OF ASCIC FILENAME | 
34 aC} 3680)0=— 90 :«(04BD Ss 727 MOVB (ROT* TFABSB MPS CAPS 'GET LENGTH OF FILE NAME 
2C AC «650 DO 04C1 728 MOVL RO FABSL FNACAP) :GET ADDRESS OF FILE NAM 
; 04€5 729 36$:  SOPEN  FAB=(AP ZOPEN PREVIOUS INPUT 
05 50 &8 O4cE 730 BLBS R0,38$ SBRANCH IF SUCCESSFUL 
FB2C’ 30 04D1 731 37$:  BSBW  DCLSERRORMSG SREPORT ERROR MESSAGE | 
3D 11 «(0404 13 3718: RB 40$ 
04D6 733 38$:  CLRBIT FABSV_NAM,FABSL_FOP(AP) ;REMOVE OPEN BY NAME BLOCK FLAG 
04 AB 02 AC BO 04DB 734 Ov FABSUCIF ICAP) . IDF _W_INPIF1(RB) ;SET NEW INPUT IF 
02 A6 B4 04E 135 RABSW-ISI(R6) sZERO PREVIOUS INTERNAL SEQUENCE NUMBER | 
4E3 736 SCONNECT RAB= (RO) i CON NECT TO PREVIOUS INP | 
€2 50 €9 O4€C 737 LBC 0,37$ [BRANCH IF UNSUCCESSFUL 
1F 18 AG 1C «£1 O4EF 86738 BB #DEVSV RND,RABSL CTX (RG) *40$ ;SKIP IF NOT A DISK FILE | 
14 A6 SCAB BO 04F4 739 mOVW F_W_INPRFA+4 (RB) ,R RFAG(R6) ;COPY RECORD FILE ADDRESS FROM 
10 A658 ag 00 4F9 740 MOVL tte UTINPRFACRS). RASS “RFA Ane) >FROM INDIRECT STACK TO RAB | 
1 1 are 741 BEQL 4087 R IF PREVIOUS FILE AT TOP _OF _FILE 
1E AG 602)=«90s«050 148 MOVE § #RABSC_RFA,RASSB_RAC(R6)- iset ACCESS MODE TO RECORD “FICE ADR 
504 74 SFIND RAB=(RB) T TO NEXT RECORD POSITION 
C150 €9 0500 744 BLBC ~—_ RO, 37 “BRANCH IF UNSUCCESSFUL 
51 745 ASSUME RABSC_SEQ EQ 0 
1E AB 9% 31 146 CLRB —- RABSBRAC(R6) ;SET ACCESS TO SEQUENTIAL 
51 748 ; 
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v04 UNSTACK NEXT INDIRECT FILE 4=SEP-1984 23:41:10 CDCL.SRCJINDIRECT.MAR;1 (6) 
51 749 ; CLOSE CURRENT OUTPUT FILE IF THE CURRENT OUTPUT FILE IS DIFFERENT 
31 £30 ; FROM THE PREVIOUS LEVEL. CREATE SYSSINPUT AND SYSSOUTPUT LOGICAL NAMES. 
58 BEDO 051 re Los: POPL RB 3GET ADDR OF JUST CLOSED IDF FRAM 
52. 0094 C 3 51675 MOVAB IDF_W_OUTIFI+IDF_K_LENGTH(R8),R2 ;GET ADDR OF OUTPUT FILE INFO 
FAE2’ 30 0518 754 BSBW DCLSRESTORE OUTPOT :RESET OLD SYS$OUTPUT 
58 O0BC CB b0 316 755 MOVL  PRC_L_IDFLNR(R11),R8 § ;GET ADDR OF CURRENT IDF FRA 
FADA* 7 136 BSBW DCLSCREATE_IO [CREATE ‘INPUT’ AND ‘OUTPUT’ LOGICAL NAMES 
05 05 $ 75 RSB 
ae 
; 4 £60 ; DO NOT OPEN THIS INPUT FILE. REOPEN THE NEXT ONE. 
58 BEDO 0527 16¢ bos: POPL RB :GET ADDR OF Just CLOSED IDF FRAME 
52 0096 (8 SE 052A 7 MOVAB IDF_W_OUTIFI+IDF_K_LENGTH(R8) ,R2 ;GET DOR OF OUTPUT FILE INFO 
FACE’ 30 O52F 764 BSBW  $DCLSRESTORE oUTPOT~ RES Sef 0 Lb EYS$ TPUT 
58 008C CB dO O05 $ 765 MOVL PRC_L_IDFLNR(R11),R8 :GET ADDR OF Sooke IDF FRAME 
58 0537 = 76 PUSHL R&~ SSAVE THAT ADDRESS 
FE70 31 +0539 = 76 RW 10$ ‘REOPEN NEXT INPUT FILE 
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B30e 
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FIL meme AT Lom counts 19-s60- 1986 33:33 59 VAX/VMS Macro v04 
ATION STAT 46-SEP-1984 23:41:10 (CDCL.SRCJINDIRECT 
769 -SBTTL SAVE VERIFICATION STATE 

77 ; SAV_EXE_ONLY = SAVE EXECUTE ONLY VERIFICATION STATE 

ae ; THIS ROUTINE CHECKS IF PROCEDURE THAT IS ABOUT TO BE EXECUTED I 
774 ; EXECUTE“ONLY PROCEDURE ENCOUTERED SO FAR. IF SO, IT SAVES THE V 
£79 ; STATES AND THE LEVEL NUMBER. 

109 ; INPUTS: 

778 : R11 = ADDRESS OF PROCESS WORK AREA 

ret 3 OUTPUTS: 

7 ¢ : 

7 Z NONE 

784 ;:- 

785 

£86 SAV_EXE_ONLY: 

78 MOVL R6,-(SP) SAVE WORK REGISTER 

788 BES at hasv GET, FABSB_FAC(AP), “308. KIP IF READ ACC 
789 TSTB B_EXONLYL ( R1T) T owe KENCOUNT ERED? 
£30 BNEQ +4 ip shust SKIP IT 

79 BICB #PRC_V_SAVCMDV!PRC_V_SAVIMGV,=- ;PRESET S 
79 PRC_B_OUTFLAGS(R11) 

794 CLRL R6 ~ sTURN OFF 
795 BBC #PRC_V_VERIFY,PRC_W -FLAGS(R11) ,108 [SKIP IF 
796 SETBIT PRC_V SAVCADV -P pac ~B_ =QUT? LAGS(R*1) SET CMD. 
797 10$: BBC PRC_J_VERIMAGE,PRC"B FLAGS2(R11),20$ ;SKIP IF 
798 SETBIT PRC_O SAVIAGV, nti ~BOTFLAGS (RIT) SET IMG. 
799 208: BSBW DCLSSETVERIFY_IMA 

800 MOVB BREE INDEPTHTRIT)S PRC_B_EXONLYL(R11) — :SAVE LEV 
801 30$: MOVL (SPTOTR R6 TRESTORE WORK REGISTERS 
308 STATUS NORMAL SALWAYS EXIT WITH SUCCESS 
80 RSB TEXIT 
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RECT FILE 
— VERIFICATION 46-SEP-19 DCL.SRCJINDIRECT.MAR;1 
57, o .SBTTL RESTORE VERIFICATION STATE 
7A : 
7h 08 ; RES_EXE_ONLY = RESTORE EXECUTE ONLY VERIFICATION STATE 
57A 810 : THIS ROUTINE CHECKS IF THE FRAME CURRENTLY BEING UNSTACKED IS THE FIRST 
57A 811 ; EXE-ONLY PROCEDURE ENCOUNTERED. IF SO, IT RESTORES THE VERIFICATION STATES 
“zh 19 : TO WHAT THEY WERE PRIOR TO THE EXECUTE ONLY PROCEDURE. 
57a 814 : INPUTS: 
S7A 15 ; 
0374 1g ; R11 = ADDRESS OF PROCESS WORK AREA 
57A 18 : OUTPUTS: 
Bazh 19 ; 
S7A 0; NONE 
OS7A 1 34 
S7A g 
S7A RES_EXE_ONLY: 
7E 56 00 O57A 4 MOVL  R6,=(SP) ;SAVE WORK REGISTER 
SC AB O91 «0570 5 CMPB = PRC_L_INDEPTH(R11),- = 31S THIS 1ST EX=ONLY LEVEL? 
012D ce 0580 : PRC~B-EXONLYL(R11) 
27.12 383 , BNEQ 30% 3NO, SKIP THIS ONE 
012D (Bo ie 8 9 CLRB  —s- PRC_B_EXONLYL(R11) sCLEAR EXE-ONLY FLAG 
0589 0 CLRBIT PRC~V-VERIFY,PRC_W_FLAGS(R11) ;INIT. CMD. VERIF. FLAG 
05 012¢ cB OCOO2-Ss«éE:.—«sé«S BE 31 BBC #PRC_U_SAVCMOV,PRC"B OUTFLAGS(R11),10$ ;SKIP IF NO VERIFY 
394 32 SETBIT PRC_O_VERIFY.PRC_W-FCAGS(R11) ;SET CMD. VERIFICATION 
56 D4 0599 834 10$: CLRL R6 : ASSUME NO IMAGE VERIFICATION 
02 012C¢ cB 0 E1 0598 835 BBC #PRC_V_SAVIMGV,PRC_B_OUTFLAGS(R11),20$ ;SKIP IF NO VERIFY 
6 D6 05A1 836 INCL —R6 -SET FLAG fO0 SET IMG. VERIFICATION 
O53 37 20$:  CLRBIT PRC_V_VERIMAGE.PRC_B_FLAGS2(R11) ;SYNC FLAG WITH LAST SET STATE 
FASG' 30 0509 838 BSBW DCLSSETVERIFY_IMAGE TSET/RESET IMAGE VERIFICATION 
56 BE 00 O5aC 839 30$: MOVL (SP)+,R6 SRESTORE WORK REGISTER 
- QSAF 840 STATUS NORMAL TALWAYS SIGNAL SUCCESS 
0S 0586 841 RSB TEXIT 
0587 BAe 
0587 84 END 
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INDIRECT = INDIRECT FILE MANIPULATION ROUTINES — 15-SEP=1984 3 :55:59 VAX/VKS Macro v04-00 Page 22 
Symbol table 4-SEP=1984 23:41:10 COCL.SRCJINDIRECT.MAR; 1 (8) 
AV ENE. ONLY pooo0ssc R URK A COMMAND 60000008 
= 
ahs SHES vit es : HES 
SS$_NORMAL eereeeee x WRK-V~QUOTE = 00000004 
QOO34E 0 WRK “W"FLAGS FEEEEEEO 
YMBOLS 2 08 WRK“W-FLAGS2 FFFFFFF 
SYM_B_FLAGS 08 WRK-W" IMGCHAN FEFFEPEE 
" 1QUE WRK -W"PMPTLEN FFFFFOSE 
SYM_B_TYPE OOA _$$- = Q0G000EF 
SYM_K-STRING = 000 
LBL 00 0000 
Ht ven 38H 
SYM"W~SIZE 000000 
SYSSCCOSE eerereee GX 0 
SYSSCONNECT teeeeree GX 0 
SYSSDELLNM eeeeeree GX 0 
SYSSDELLOG eeeeeere GX 0 
SYS$F IND eeereree GX 0 
SYSSOPEN teeeeeee GX 02 
SYSSPARSE eeeeeree GX 02 
SYS_INPUT_NAME 00000004 R 02 
C 00000393 0 
CMDOPT FFFFFFC 
WRK~B-MAXPARM FFFFFFDO 
WRK~B-MINPARM FFFFFFDI 
K"B~PARMCNT FFFFFFCE 
“B"PARMSUM FFFFFFCE 
WRK-B-RECALLCNT FFFFFFCS 
K~B~VALLEV FFFFFFCG 
“B-VERBTYP FEEEEE C2 
ENGTH FFFFF G86 
BUFFER FFFFF492 
NPBUF FFFFF896 
RESULT FFFFFOBO 
LENGTH FFFFF 486 
L-CHARPTR FFFFFGBE 
L“DISALLOW FFFFFFE6 
L7ERRORRTN FFFFFOAE 
K"L~EXPANDPTR FFFEEGBG 
KL” IMAGE FEFEEE 
L“MARKPTR FFFFEGBA 
“L~PAROUT FEEEEEDS 
“L“PMPTADDR FFFFFOA 
“L"PROMPTRIN FFFFFOAG 
K-L“PROPTR FFFFFFC6 
KL" QUABLK FFFFFECA 
K7L“READRIN FFFFFOAA 
K-L“RECALLPTR FFFFFFEA 
KL "RSLEND FFFFFFBO 
KTLTRSUNXT FFFFFFBA 
K7L~SAVAP FFFFFFFS 
K-L~SAVFP FFFFFFFC 
KL“ SAVSP FFFFFFRG 
K7L~SIGNALRTN FEEEEEDG 
L“SPECRIN FFFFFOB 
L~TAB_VEC FFFFFFDE 
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Psect synopsis output 
Cross-reference output 
Assembler run totals 


PSECT name Allocation PSECT No. Attributes 
» 6 « 00000000 < ) 9 ( 0.) NOPIC USR CON ABS LCL 
SABSS FFFFFFF ( ol 1¢ 1.) NOPIC USSR CON ABS- LCL NOSHAR 
DCLSZCODE 0000058 ( 1465.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR 
gaewe ww nnceanwr men wraena nce in sea $ 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 00: 0:00.08 083 00:8 -40 
Command processing 83 00: 8299-6 00:00:05.41 
we tabl : “a 6; $03.67 
able sor :00:01. 
Pass 2 159 8 830339 
Symbol table output 34 0: 8°53 
0:00. 
8:98°9 
0:20.9 


The working set Limit was 1500 pages. 

76452 bytes (150 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1153 non-local and 47 local symbols. 
3 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

62 pages of virtuai memory were used to define 43 macros. 


Macro Library name 


_$255$0UA28:(SYSLIBISYSBLDMLB.MLB; 1 0 
“$255$DUA28: (DCL.OBJJDCL.MLB; 1 14 
“$255$DUA28: S¥S -OBJ LI6.MLB;1 1 
$255$DUA28: (SYSLIBISTARLET.MLB;2 19 
TOTALS (all Libraries) 34 


1417 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
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